home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1996 April: Mac OS SDK / Dev.CD Apr 96 SDK / Dev.CD Apr 96 SDK2.toast / Development Kits (Disc 2) / ScriptX / Draggable ScriptX Folders / utils / DTK / source / DIRIMP_SX / chngtmpo.sx < prev    next >
Encoding:
Text File  |  1996-02-28  |  671 b   |  23 lines  |  [TEXT/ttxt]
  1. -- *******************************************************
  2. -- *                                                     *
  3. -- * ChangeTempoAction class                             *
  4. -- *                                                     *
  5. -- *******************************************************
  6.  
  7. class ChangeTempoAction (Action)
  8.    instance variables
  9.         tempoValue
  10. end
  11.  
  12. method init self {class ChangeTempoAction} #rest args #key tempo:(0) ->
  13. (
  14.     apply nextMethod self args
  15.     self.tempoValue := tempo
  16. )
  17.  
  18. method trigger self {class ChangeTempoAction} theTarget thePlayer ->
  19. (
  20.     -- YOW!  Look at this code, Ma!
  21.     thePlayer.scorePlayer.scoreTicker.rate := self.tempoValue
  22. )
  23.